home *** CD-ROM | disk | FTP | other *** search
/ Eagles Nest BBS 1 / Eagles_Nest_Mac_Collection_Disc_1.TOAST / HyperCard & XCMD⁄XFCN / HamTechTest4 / Technician Ham Test / card_3775.txt < prev    next >
Text File  |  1993-04-11  |  2KB  |  98 lines
  1. -- card: 3775 from stack: in
  2. -- bmap block id: 4011
  3. -- flags: 4000
  4. -- background id: 2725
  5. -- name: EXAM
  6. ----- HyperTalk script -----
  7. on openCard
  8.   global lockkey
  9.   set hilite of button "Immediate Review" to true
  10.   show card field waitplease
  11.   if lockkey is false then
  12.     buildList
  13.   end if
  14.   hide card field waitplease
  15. end openCard
  16.  
  17.  
  18.  
  19.  
  20. -- part 8 (button)
  21. -- low flags: 00
  22. -- high flags: C005
  23. -- rect: left=17 top=311 right=335 bottom=164
  24. -- title width / last selected line: 0
  25. -- icon id / first selected line: 0 / 0
  26. -- text alignment: 1
  27. -- font id: 0
  28. -- text size: 12
  29. -- style flags: 0
  30. -- line height: 16
  31. -- part name: Immediate Review
  32. ----- HyperTalk script -----
  33. on mouseUp
  34.   global immediate
  35.   if hilite of button "Immediate Review" is false then
  36.     put true into immediate
  37.     set hilite of button "Immediate Review" to true
  38.   else
  39.     put false into immediate
  40.     set hilite of button "Immediate Review" to false
  41.   end if
  42. end mouseUp
  43.  
  44.  
  45.  
  46. -- part 11 (button)
  47. -- low flags: 00
  48. -- high flags: 8000
  49. -- rect: left=426 top=285 right=338 bottom=490
  50. -- title width / last selected line: 0
  51. -- icon id / first selected line: 1007 / 1007
  52. -- text alignment: 1
  53. -- font id: 0
  54. -- text size: 12
  55. -- style flags: 0
  56. -- line height: 16
  57. -- part name: print test
  58. ----- HyperTalk script -----
  59. on mouseUp
  60.   global questlist
  61.   show card field waitplease
  62.   lock screen
  63.   go to card K
  64.   print this card
  65.   open printing with dialog
  66.   repeat with i = 1 to number of items of questlist
  67.     put item i of questlist into thisquest
  68.     go to card thisquest
  69.     print this card
  70.   end repeat
  71.   close printing
  72.   go to first card
  73.   unlock screen
  74.   hide card field waitplease
  75. end mouseUp
  76.  
  77.  
  78.  
  79. -- part 12 (field)
  80. -- low flags: 81
  81. -- high flags: 0004
  82. -- rect: left=333 top=172 right=224 bottom=484
  83. -- title width / last selected line: 0
  84. -- icon id / first selected line: 0 / 0
  85. -- text alignment: 0
  86. -- font id: 3
  87. -- text size: 12
  88. -- style flags: 256
  89. -- line height: 16
  90. -- part name: waitplease
  91.  
  92.  
  93. -- part contents for card part 12
  94. ----- text -----
  95. PLEASE BE PATIENT
  96. THIS PROCESS 
  97. TAKES TIME....
  98.